home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
apb17.zip
/
DEBUG.BAS
< prev
next >
Wrap
BASIC Source File
|
1990-12-20
|
491b
|
32 lines
' ApBasic debugger test program
' Created 10-4-87 By. K. Murray
'
DefInt A-Z
' Print a pyramid
For I=1 to 23
Locate I+1,40-I
Print String$(I*2,"*");
Next I
' Scroll the banner across the top line
Banner$="Welcome to the ApBasic debugger"
Gosub Print.Banner
End
' Banner scrolling routine
Print.Banner:
Y=Len(Banner$)
For X=1 to Y
Locate 1,1
Print Mid$(Banner$,Y-X+1);
Next X
For X=1 to 40-Y/2
Locate 1,X
Print " ";Banner$
Next X
Return